REM *************************************************************

REM *              APP8.01  NYQUEST TEST 1                     *

REM *************************************************************

10 COLOR 15, 1: CLS

12 INPUT "INPUT F1 AS PERCENT OF NYQUEST (I.E., 0.9)"; F1

14 CLS : PRINT " N              F1           F2": PRINT

20 PI = 3.14159265358979#: F2 = 2 - F1' F1 = % NYQUEST

30 FOR N = 0 TO 20

32 X = N * PI: X1 = X * F1: X2 = X * F2' SOLVE FOR ARGUMENTS

40 Y1 = COS(X1) / 2: Y2 = COS(X2) / 2' GET COSINE

48 PRINT N, : PRINT USING "##.#####-    "; Y1; Y2

50 NEXT N

52 PRINT "AGAIN (Y/N)?"

55 A$ = INKEY$: IF A$ = "" THEN 55

57 IF A$ <> "n" AND A$ <> "N" THEN 12

60 END



